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1.0  Abstract: 


The  EG&G  Vector  Measuring  Current  Meter  (VMCM)  used  in 
mooring  work  provides  a  20  ma  Serial  ASCII  Instrumentation  Loop 
(SAIL)  communication  system.  A  projected  application  of  the  VMCM 
is  to  have  a  surface  mooring  communicate  with  a  series  of  VMCMs 
via  a  Frequency  Shift  Keying  (FSK)  link.  While  an  FSK  modem  can 
communicate  with  the  VMCM,  a  problem  exists  with  the  general 
operation  of  the  VMCM.  If  the  VMCM  is  addressed  to  dump  data,  it 
remains  on  until  the  unit  is  re-addressed.  If  a  failure  in  the 
link  occurs,  then  the  VMCM  stays  on  in  a  higher  power  mode  and 
the  batteries  will  be  depleted  early. 


The  insertion  of  a  processing  block  between  the  modem  and 
the  VMCM  provides  a  way  to  look  at  incoming  data,  qualify  it  and 
re-trancmit  it  to  the  VMCM.  The  VMCM  will  reply  and  the 
preprocessor  can  channel  the  data  to  the  modem.  In  the  event  of  a 
VMCM  malfunction,  the  preprocessor  has  a  timeout  function  and 


will  turn  off  the 


keeping  the  line  quiet. 


2.0  Description  of  Technique: 


An  application  of  this  instrument  is  to  have  a  master 
controlling  computer  mounted  on  a  surface  float.  Typically  4  or 
more  VMCMs  will  be  supported  on  a  power  bearing  cable.  Impressed 
on  the  power  cable  will  be  the  FSK  signal.  At  regular  intervals 

the  top  unit  will  interrogate  the  lower  units  using  the  SAIL 

protocol  • 

When  a  carrier  is  not  present  on  the  line,  the  lower  units 
remain  in  a  sleep  mode.  When  a  carrier  appears,  the  preprocessing 
units  only  will  wake  up  for  operation.  With  FSK  communications 
data  is  impressed  upon  a  carrier  generated  by  the  transmitting 
unit.  The  receivers  must  have  their  carrier  off  when  listening. 
It  is  important  that  the  carrier  is  generated  for  a  short  period 
prior  to  transmission  so  the  receiving  modems  can  phase  lock  on 
t  he  s ignal  . 

The  FSK  protocol  requires  that  the  controller  establish  a 

carrier  and  then  send  the  interrogation  request.  If  the 
preprocessor  recognizes  the  address  as  its  own,  it  re-transmits 
it  to  the  VMCM.  All  the  other  VMCMs  on  the  line  will  remain 
quiet.  The  activated  VMCM  will  be  operating  in  the  record  buffer 
dump  or  "R"  mode.  Each  time  a  new  set  of  data  becomes  available, 
it  is  transferred  to  this  buffer.  When  requested  by  ”R”  the 

buffer  is  normally  sent  via  the  SAIL  20  ma  current  loop.  The 
preprocessor  follows  the  logic  level  of  this  signal  and  transmits 
it  via  the  modem  to  the  surface. 

After  all  activity  in  the  VMCM  has  ended,  the  preprocessor 
has  a  software  timeout  function  that  sends  an  end  of  transmission 
character  (ETX  03H),  places  the  VMCM  in  its  low  power  mode,  and 
then  shuts  itself  down.  If  the  VMCM  should  hang  up  or  develop  an 
error  during  transmission,  this  timer  will  time  out  and  shut  the 
sy  s  tern  down. 
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3,0  Description  of  Hardware: 

The  FSK  SAIL  Preprocessor  card  contains  two  sections,  the 
FSK  modem  that  provides  logic  level  and  FSK  I/O  and  the  micro  - 
processor  (uP)  section  that  handles  logical  functions. 

The  FSK  modem  is  based  on  the  RELAYS  Listening  Station  (RLS) 
modem.  A  single  FSK  line  and  4  data  I/O/control  lines  are 
provided  in  addition  to  a  +5  volt  supply  and  ground.  The  modem  is 
shown  in  Figure  3.1. 

With  XMIT  bar  high  the  modem  is  in  the  receive  mode.  When  a 
carrier  is  present,  carrier  detect  goes  high.  Data  out  is  a  logic 
level  high  for  a  break  condition.  With  XMIT  bar  low,  the  modem 
generates  a  carrier,  carrier  detect  goes  high,  and  data  can  be 
impressed  on  the  carrier  with  a  logic  high  being  a  break  (low) 
condition. 

The  second  part  is  the  uP  that  controls  the  modem  and 
communicates  with  the  VMCM.  It  is  based  on  the  146805E2  low  power 
uP  and  in  this  configuration  features  2K  of  ROM,  a  2.4576  mHz 
clock,  and  reset  on  power  up.  It  is  shown  in  Figure  3.2. 

The  CPU  will  start  operation  500  uSec  after  power  has  been 
established  by  the  RC  network  driving  CPU  pin  1.  The  crystal 
frequency  selected  for  the  uP  is  based  on  the  requirement  to 
generate  a  153.6  kHz  timebase  for  the  modem.  A  CD4040BE  divides 
the  up  Clock  (uClock)  by  16  down  to  the  modem  Clock  (mClock) ,  An 
8  pole  single  throw  DIP  switch  connected  to  Port  A  is  used  to  set 
the  SAIL  address  in  the  range  of  00  to  FF .  The  common  side  of  the 
switches  is  driven  by  PB5  to  reduce  power  consumption  at  the  pull 
down  resistors  on  Port  A.  When  reading  the  SAIL  address  switches, 
P35  is  raised.  Port  A  is  read,  and  PBS  is  lowered.  Otherwise  the 
worst  case  dissipation  would  be  133  u Watts.  The  switch  positions 
are  shown  in  Figure  3.3. 

The  modem  cj..-io1  lines  J-.,  11,.  .  -■»  and  Carrier 

Detect  are  wired  directly  to  the  uP.  The  Carrier  Detect  is  used 
to  generate  the  interrupt  to  wake  up  the  uP.  The  146805E2 
requires  a  low  level  to  generate  interrupts,  so  an  XOR  gate  is 

set  as  an  inverter  to  provide  the  correct  logic  level. 

Communication  with  the  VMCM  is  made  by  two  serial  I/O  lines. 
The  serial  data  from  the  VMCM  is  taken  directly  from  the  VMCM 

UART  (SDO).  By  placing  an  open  collector  NPN  transistor  in 

parallel  with  the  output  NPN  of  the  20  ma  current  loop 

op  t  o  i  s  o  1  a  t  o  r  ,  SAIL  commands  can  be  sent  to  the  VMCM  using  logic 

levels.  A  software  UART  is  used  in  the  146805E2.  The  VMCM  SDI  is 

driven  by  PB6.  Operation  of  the  20  ma  loop  is  allowed  for 
diagnostic  purposes  when  a  carrier  is  not  present.  All  signal 
connections  to  the  preprocessor  and  the  VMCM  are  shown  in  Figure 

3.4,  Backplane  cut  and  jumper  modifications  are  shown  in  Figure 

3.5. 
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ALL  COMPONENTS  ARE  REFERENCED  TO 


EGiG  VMCM  HARDWARE  MANUAL 


TO  PIN  14,  U4 


SERIAL  CARD 


FlLEi  INTER 


figure:  3.4  PRFPRDCESSDR  TD  VMCM  CDMNECTIOMS 
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Th©  program  is  hold  in  a  27C16  EPROM,  Tha  1A6805E2  also 
provides  64  RAM  locations  for  variables.  Component  placement  is 
shown  in  Figures  3.6  and  3.7.  The  FSK  board  mounts  in  position  J8 
and  placement  is  shown  in  Figure  3.3.  Foil  patterns  are  shown  in 
Figures  3.8  and  3.9. 


LO 


(UNDERNEATH) 


OBO 


4,0  So  f  t wa  re : 


The  Software  for  the  preprocessor  is  best  described  in  terms 
of  a  flowchart  and  an  assembly  listing.  Before  describing  the 
flowchart,  some  operational  considerations  should  be  mentioned. 
The  146805E2  supports  low  power  STOP  and  WAIT  commands.  These 
commands  allow  the  uClock  to  be  stopped  or  removed  from  the  uP 
architecture  respectively.  To  simplify  hardware,  a  software  UART 
is  being  used  for  reception  and  transmission  of  300  Baud  data. 
The  program  must  have  features  that  prevent  either  the  uP  or  VMCM 
from  staying  on  in  the  event  of  a  communications  failure.  The 
modem  default  must  always  be  in  the  receive  mode.  Diagnostics 
should  be  available  for  other  program  development. 

The  flowchart  is  shown  in  Figure  4.1.  On  power  up  the  two 
I/O  ports  data  direction  registers  are  set.  Baud  rate  values  are 
placed  in  RAM ,  the  stack  pointer  is  reset,  and  a  is  sent  via 
FSK  out  the  modem  indicating  a  good  power  up.  After  this  the 
146805E2  enters  its  lowest  power  mode  by  shutting  off  the  carrier 
and  the  clock.  On  the  detection  of  an  FSK  carrier  a  hardware 
interrupt  occurs.  The  clock  starts  and  the  program  vectors  off  to 
ROM  location  1840H  to  start  subroutine  SALREC  to  qualify  a  valid 
SAIL  address.  If  a  different  address  is  received  or  if  a  carrier 
drop  is  detected  mom'^ntarily,  then  the  146805E2  returns  to  sleep. 

Two  timing  registers  are  used  to  prevent  the  processor  from 
staying  on  in  the  event  of  a  modem  or  VMCM  glitch.  The  subroutine 
MGET  increments  a  counter  while  waiting  for  the  first  incoming 
character,  oth'erwise  the  software  UART  would  remain  cycling 
continuously  looking  for  the  start  bit.  If  a  valid  address 
occurs,  then  the  carrier  is  turned  on  looking  up  to  establish  a 
good  carrier  in  the  line.  The  address  is  then  regenerated  along 
with  the  delimiter  to  the  VMCM.  The  VMCM  will  reply  with  a  string 
of  data  followed  by  a  carriage  return/line  feed. 

The  transfer  of  data  from  the  VMCM  to  the  modem  is  performed 
by  following  the  transitions  at  the  SDO  of  the  VMCM.  The  VMCM 
UART  must  see  the  data  it  transmits,  so  the  transitions  are  sent 
to  the  VMCM  SDI.  The  subroutine  CIRCLE  performs  this  function. 
While  this  routine  is  CIRCLing,  a  counter  register  is  being 
incremented.  The  maximum  timeout  is  in  the  order  of  600  mS.  This 
is  intended  to  prevent  glitches  in  the  VMCM  data  stream  from 
hanging  up  the  preprocessor.  After  the  data  transfer  and  clock 
timeout,  the  preprocessor  is  ready  to  enter  a  sleeping  mode.  An 
ETX  (03H)  is  sent  via  FSK  out  the  modem,  the  carrier  is  turned 
off  looking  up,  and  the  NPN  transistor  in  parallel  with  the  SAIL 
20  ma  optoisolator  is  placed  in  a  high  impedance  state.  The  STOP 
command  is  given  and  the  preprocessor  enters  its  low  power  mode. 

The  utilities  used  in  this  program  are  a  subset  of  the  ONSET 
6805  monitor.  These  utilities  are  copyright  protected  and  are 
used  with  the  permission  of  Onset  Computer  Corporation.  This 
includes  the  software  UART,  string  handlers,  and  memory  value 
handlers.  The  only  utilities  used  in  the  FSK  portion  of  the 
program  are  the  UART  GET  and  SEND  routines.  These  routines  have 
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also  been  modified  and  also  appear  as  MGET  and  MSEND . 


A  change  in  the  hardware  reset  vector  will  cause  the  program 
to  start  in  the  monitor  mode  for  diagnostics.  The  serial 
communications  for  the  monitor  are  handled  through  the 
communications  port  PB7  and  PB6.  The  monitor  allows  for  memory 
location  changes,  data  dumps,  and  execution  of  programs  from  RAM 
or  ROM. 

The  assembly  listing  is  given  in  Appendix  A. 
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5.0  Installation  and  Tuning  Procedures 


The  modem  on  the  preprocessor  requires  tuning  before 
installation.  The  equipment  required  includes: 

A)  Dual  Power  Supply 

B)  Frequency  Counter 

C)  Storage  Oscilloscope 

D)  FSK  Deck  Box 

E)  Decade  Resistance  Box 

F)  Terminal,  300  BAUD 

G)  Digital  Voltmeter 

H)  Signal  Generator,  1700  Hz. 

Prior  to  powering  up,  a  digital  voltmeter  set  in  the  200  mV  range 
should  be  placed  across  the  2,7  Ohm  sense  resistor  to  monitor 
board  current.  The  board  should  not  exceed  3.7  mA  (10  mV). 
Nominal  current  with  the  microprocessor  installed  and  the  board 
in  the  STOP  mode  is  2  mA  (5.4  mV)  and  10  mA  (27  mV)  when  active. 

Remove  the  146805E2  microprocessor  prior  to  tuning.  Using  a  logic 
clip  bring  pin  8,  IC7  high  through  a  lOK  1/4W  resistor  to  V+. 
This  brings  XMIT  bar  high. 

5.1  Set  Power  Supply  to  +5.00  Volts  and  +2,90  Volts 

5.2  Apply  5  Volts  at  V+  (pin  5)  and  GND  (pin  1)  of  the  Board. 

5.3  Using  a  16  Pin  IC  Clip  on  IC9  (4046),  ground  pin  9. 

5.4  Install  Decade  Resistance  Box  in  place  of  R54  (GND  and  Pin 

12,  IC9).  Set  at  approximately  400K. 

5.5  Place  input  to  Frequency  Counter  at  pin  3,  IC9. 

5.6  Adjust  Decade  Box  for  frequency  count  of  500  Hz  +/-  10  Hz. 

Let  this  run  for  5  minutes  to  verify  stability. 

5.7  Install  1%  resistor  with  Decade  Box  value  in  R54  position, 
(Note  2 ) . 

5.8  Measure  frequency. 

5.9  Power  down,  disconnect  GND  from  IC  9  pin  9. 

5.10  Install  Decade  Resistance  Box  in  place  of  R55  (GND  and  pin 
11,  IC9) . 

5.11  Power  up,  and  apply  +2.90  Volts  to  IC9,  pin  9.  Adjust  Decade 

Resistance  Box  for  a  frequency  of  1  7  00  Hz  +/-  10  Hz  at  pin  3, 

rc9 . 

5.12  Install  1%  resistor  with  Decade  Box  value  in  R55  position. 
(Note  1 ) . 
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5.13  Measure  frequency. 

5.14  Procedure  for  testing  FSK  serial  data  and  tuning  ax.  plifieru 
follows  . 

5.15  Connect  the  signal  generator  to  pins  33  (signal)  and  35 
(GND)  of  the  modem  board.  Set  the  generator  to  1700  Hz  with  an 
output  voltage  of  200  mV  p-p. 

5.16  Power  up  board. 

5.17  Using  the  decade  resistor  box,  select  R37  for  a  symmetrical 
output  at  105,  pin  10  (LM  346). 

5.18  Install  1%  resistor  in  R37  position,  (Note  3). 

5.19  Connect  FSK  Deck  Box  in  place  of  the  signal  gene^-ator.  Type 
a  capital  *'U"  on  the  terminal  and  verify  a  5  Volt  square  wave  is 
present  at  IC5,  pin  10. 

5.20  Set  positive  supply  at  5.5  Volts. 

5.21  With  the  storage  oscilloscope,  monitor  IC5,  pin  7.  Send  a 

"U"  on  the  terminal  and  adjust  R43  for  a  rising  edge  on  the 
carrier  detect.  Continue  to  adjust  R43  until  carrier  detect  fails 
and  set  at  midrange. 

5.22  With  the  storage  oscilloscope,  monitor  IC5,  pin  1.  Send  a 

’*U”  on  the  terminal  and  adjust  R44  for  a  square  wave  output  on 
the  data  line.  Continue  to  adjust  R44  until  data  fails  and  set  to 
midrange  . 

5.23  Refer  to  Figure  5.1  for  the  relationships  between  carrier 
and  data. 

5.24  Test  modem  operation  over  input  voltage  range  of  4.9  to  6.3 

Volts.  Trim  R44  (data)  for  optimum  response  over  this  range. 

Note:  The  limiting  factor  is  the  4046  PLL  which  is  nc^t  rated  for 
operation  below  5.0  Volts. 

5.25  Insert  the  microprocessor  on  the  Modem  board  and  install  in 
a  modified  VMCM  using  an  extender  card. 

5.26  Turn  on  power.  The  Modem  should  send  a  ***”  to  the  terminal 
via  the  FSK  port. 

5.27  Connect  the  DVM  accross  the  2.7  Ohm  sense  resistor.  Send  the 

instrument  address  followed  by  the  delimiter  "R”.  The  instrument 

should  respond  with  its  data  buffer.  The  voltage  across  the  2.7 
Ohm  resistor  is  an  indication  of  the  board  current.  Verify  that 
it  returns  to  the  prior  quiescent  value  after  sending  the  data 
and  timing  out  (around  5  seconds).  Note:  The  instrument  address 
and  ”R**  delimiter  must  be  entered  within  a  2  second  period  or  the 
program  will  time  out. 


5  Volts/Div 


20  mS/Div 


I.C.  5,  PIN  7 
Carrier  Detect 


I.C.  5,  PIN  1 
Data 


Figure  5.1 

Carrier  Detect  and  Data  Signals 


6,0  Parts  List  and  Component  Placement 
Description  Quantity  Placement 

RESISTORS 


10  Ohm  5%  1/AW 
A.7K  5%  1/4W 
lOK  5%  1/AW 
lOM  5%  1/AW 
IM  5%  1/AW 
5. IK  1%  1/8W 
3.3K  5%  1/AW 
51  Ohm  5%  1/4W 
33K  5%  1/AW 
A99K  :%  1/AW 
825K  1%  1/AW 
A.7M  5%  1/AW 
1.5M  5Z  1/AW 
562K  5%  1/AW 
7.5M  5%  1/AW 
200K  5%  1/AW 
A70K  5%  l/AW 
6.8M  5%  l/AW 
270K  5%  l/AW 
562K  1%  1/8W 
820K  1%  1/8W 
IM  1%  1/8W 
lOOK  1%  1/8W 
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1 

3 

2 

2 

2 

1 

2 

1 

3 

1 

1 

2 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


SELECT  1%  1/8W  3  R37.R5A,R55 

2.7  Ohm  5%  l/AW  1  Rsense 

10  PIN  RES  SIP  9-lM  NETWORK  2  SIP1,SIP2 

TEN  TURN  TRIMPOT  200K  2  RA3 . RAA 


SEMICONDUCTORS 

2.A576  MHz  (CRYSTEK)  1  XTAL 

1N91A  DIODE  3  D8,D9.D7 

2N309A  TRANSI STOR  1  Q8 

2N2907  TRANSISTOR  1  Q6 

2N2222  TRANSISTOR  1  Q7 


CAPACITORS 

22pF  CM05ED  220J03  MICA  2  C1.C2 

50uF  @6v  CDENLW50-6  1  C3 . ELECTROLYTIC 

O.OOluF  POLYCARB  10%  1  C19 

0.0012uF  POLYCARB  10%  1  C18 
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0.0022uF  POLYCARB  10% 
0.022uF  WHITE  POLYCARB  10% 
A.7uF  CERAMIC 
1 .OuF  CK05  CERAMIC 
O.OluF  CK05  CERAMIC 
0.022uF  CK05  CERAMIC 
O.luF  CK05  CERAMIC 


C21 

C17 

C13,C1A,C11,C12 

C20 

C15 

Cl  6 

CA 


INTEGRATED  CIRCUITS 


CDAOl IBFX 

CDA013BE 

CDA0103BE 

CDAOAOBE 

LM3 A6J 

CDA070BE 

MCI A6805E2 

CDA0A6BF 

27C16 

CD7 AHC573E 


U1 

U2  .  U6 

U3 

UA 

U5 

U7 

U8 

U9 

Ull 

U12 


JUMPERS 

PIN  5 .  U8  to  PIN  9 ,  U1 
PIN  A.  U8  to  PIN  8,  U1 
PIN  1,  U7  to  PIN  12.  U; 


PIN  1 
PIN  3 


U7  to  PIN  2,  U8 


RA2-RA1  NODE  to  R15-C17  NODE 


16  PIN  DIPSWITCH 


SWl  (UlO) 


EG5cG  Serial  Card  Jumpers: 

All  IC  numbers  refer  to  EG&G  VMCM  Hardware  Manual  designations 
Use  #30  Gauge  Kynar  or  similar  wire, 

J35  to  Pin  10,  U7  Rll  node 

J37  to  Pin  13,  UA  and  Pin  6,  U12 


Make  connections  to  resistors. 


7*0  Recommendations 


During  the  development  of  this  board,  two  software  changes 
have  been  discussed.  The  first  is  to  replace  the  simple 
instrument  on  greeting  with  a  longer  stream  indicating  SAIL 
switch  setting,  software  version,  and  an  instrument  title.  The 
second  is  to  place  parity  with  the  data.  This  would  involve 
storing  the  data  as  it  comes  in  from  the  VMCM  and  regenerating 
this  stream  with  the  addition  of  parity  bits.  The  problem  with 
this  method  is  there  is  a  limit  on  memory  space,  and  two  bytes 
would  have  to  be  stored  in  one  memory  location.  Presently  the 
clear  reception  of  the  ETX  at  the  end  of  the  stream  qualifies  the 
data. 


A  use  for  the  remaining  port  pin  PB4,  would  be  to  determine 
if  the  program  is  going  to  be  operational  or  diagnostic  on  power 
up.  With  this  pin  low  (normal  condition)  the  program  w'  uld  vector 
to  the  FSK  program.  If  the  pin  was  tied  high  and  the  system  was 
reset,  it  would  enter  the  diagnostic  mode.  This  would  include 
strings  that  can  be  sent  out  the  FSK  port,  and  other  modem  tuning 
related  operations. 

A  hardware  reduction  scheme  would  be  to  have  the  software 
generate  the  FSK  data.  This  would  require  the  data  to  be  stored 
prior  to  transmission.  Then  the  microprocessor  could  generate  the 
FSK  frequencies. 
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;APPENDIX  A. 


VMCM  PREPROCESSOR  ASSEMBLY  LISTING 


;FILE  -  "VMCM5.ASM" 

;PROGRAM  FOR  WHOI  SAIL  VMCM  INTERFACE 
;LAST  ENTRY  ON  AUGUST  13.  1987 

;ADDITIONAL  CLEANUP  ON  NOV  23.  1987 

;PAUL  D.  FUCILE.  PHYSICAL  OCEANOGRAPHY.  WHOI 
;THIS  VERSION  QUALIFIES  THE  "R"  DELIMITER  AND 
;TRANSMITS  AN  ETX  AT  THE  END  OF  A  TRANSMISSION 
;THIS  PROGRAM  USES  A  SOFTWARE  TIMEOUT.  UART. 
;AND  IMPLICIT  OPERATIONS 

;MARCH  17.  1986  -  ONSET  MONITOR  ROUTINES 

;APPENDED  FOR  VMCM  WORK  WITH  PERMISSION 
:MONITOR  COPYRIGHT  -  ONSET  COMPUTER  CORPORATION 

;ESTABLISH  FIRST  PAGE  VARIABLES 


0000 

ADATA 

EQU 

OOH 

0001 

BDATA 

EQU 

OlH 

GOOD 

CR 

EQU 

ODH 

OOOA 

LF 

EQU 

OAH 

0008 

TDATA 

EQU 

8 

;TIMER  DATA  PORT 

0009 

TCNTRL 

EQU 

9 

; TIMER  CONTROL  PORT 

0010 

TIMA 

EQU 

lOH 

;TEMP  STORAGE  FOR  TIMER  COUNT 

0011 

TIME 

EQU 

TIMAfl 

0012 

TTIMA 

EQU 

TIMB+1 

0013 

TTIMB 

EQU 

TTIMA+1 

0014 

TEMPI 

EQU 

TTIMB+1 

; TEMPORARY  DATA  STORAGE 

0015 

TEMP2 

EQU 

TEMPl+1 

0016 

TEMP3 

EQU 

TEMP2+1 

0017 

TEMP4 

EQU 

TEMP3  +  1 

; lOH  THROUGH  22H  USED 

0018 

TEMP5 

EQU 

TEMPA+1 

0019 

PROGl 

EQU 

TEMP5+1 

;10  BYTE  STORAGE  FOR  CODE 

OOID 

PROG2 

EQU 

PROGl +A 

;4  BYTE  PROGRAM  STORAGE 

0021 

PROG3 

EQU 

PROG2+4 

0023 

PROGA 

EQU 

PROG3  +2 

:PROG4  USES  2  BYTES 

002A 

SAILHI 

EQU 

2AH 

002B 

SAILLO 

EQU 

2BH 

002C 

VCNTHI 

EQU 

2CH 

002D 

VCNTLO 

EQU 

2DH 

002E 

DLMTR 

EQU 

2EH 

;DELIMITER  AFTER  VALID  ADDRESS 

002F 

CNTRHI 

EQU 

2FH 

0030 

TYMl 

EQU 

30H 

003  1 

TYM2 

EQU 

31H 

0032 

TYMTST 

EQU 

32H 

0033 

TRYTST 

EQU 

33H 

003  A 

TWYTST 

EQU 

34H 

DISABLE 

OPSYN 

SEI 

;  DI SABLE  INTERRUPTS 

ENABLE 

OPSYN 

CL  I 

; ENABLE  INTERRUPTS 

SLEEP 

OPSYN 

STOP 

;TURN  PROCESSOR  OFF 

1  800 

ORG 

1  800H 

START  OF  VMCM  PROGRAM 

1800 

CD18E3 

JSR 

CONFIG 

CONFIGURE  I/O 

1803 

CD18DA 

JSR 

BDSET 

SET  BAUD  RATE  TO  300 

1806 

CD18F0 

JSR 

READ 

READ  SAIL  ADDRESS  SWITCHES 

1809 

9C 

RSP 

1 

RESET  STACK  POINTER 

180A 

A62A 

LDA 

yp  ★  t 

,SAYS  HELLO  TO  SURFACE 

180C 

CD196F 

JSR 

MSEND 

1  80F 

9A 

ENABLE 

1810 

8E 

SLEEP 

1  840 

HARD  : 

ORG 

1  840H 

,  HARDWARE  I  NT  ROUTINE 

1840 

9C 

RSP 

1  841 

1401 

BSET 

2.1 

:MAKE  SURE  MODEM  IS  LISTENING 

1843 

3F30 

CLR 

TYMl 

1845 

3F3  1 

CLR 

TYM2 

1  847 

CD1926 

SALREC: 

JSR 

MGET 

;LOOK  FUR  VALID  SAIL 

184A 

A123 

CMP 

//*//* 

ADDRESS 

184C 

26F9 

BNE 

SALREC 

184E 

CD  1926 

SAL2  : 

JSR 

MGET 

.LOOK  FOR  SAILHI 

1851 

B12A 

CMP 

SAILHI 

1853 

2707 

BEQ 

SAL3 

1  855 

A1  23 

CMP 

//’//* 

1857 

26EE 

BNE 

SALREC 

1859 

Col 84E 

JMP 

SAL2 

185C 

CD  19  26 

SAL3  : 

JSR 

MGET  ; 

;LOOK  FOR  SAILLO 

185F 

B123 

CMP 

SAILLO 

1  861 

27  07 

BEQ 

SAL4 

1863 

A123 

CMP 

inr 

1  865 

26E0 

BNE 

SALREC 

1867 

CCl 84S 

JMP 

SAL2 

186A 

CD1926 

SAL4  : 

JSR 

MGET 

GET  VMCM  DELIMITER  (R.D...) 

1  86D 

B7  2E 

STA 

DLMTR 

STORE  IT  AWAY 

186F 

A152 

CMP 

//  »  R* 

QUALIFY  *R'  IMPLICITLY 

1871 

2707 

BEQ 

SAL5 

1873 

A1  23 

CMP 

/r  //  * 

1875 

26D0 

BNE 

SALREC 

1877 

CC184E 

JMP 

SAL2 

1  87A 

CD190B 

SAL5  : 

JSR 

VMCMON  ; 

:TURN  VMCM  ON 

1  87D 

1501 

BCLR 

2.1  ; 

;TURN  CARRIER  ON  LOOKING  UP 

1  87F 

3F32 

CLR 

TYMTST  i 

;TWO  TRY  REGISTER 

1881 

3F34 

CLR 

TWYTST 

1883 

3F33 

CLR 

TRYTST 

1885 

CD  19  11 

SON: 

JSR 

SAILON  ; 

:SEND  GOOD  SAIL  ADDRESS  THROUGH 

1888 

1888 

1  COl 

BSET 

6.1  i 

;SENDS  DATA  TO  SURFACE 

188A 

3F30 

CLR 

TYMl 

25 


188C  3F31 


CLR 


TYM2 


188E 

3C30 

CIRCLE : 

INC 

TYMl 

1  890 

B63C 

LDA 

TYMl 

1892 

AIFF 

CMP 

#OFFH 

1894 

2608 

BNE 

Q3 

1896 

3C3  1 

INC 

TYM2 

1898 

B631 

LDA 

TYM2 

189A 

A140 

CMP 

#40H 

189C 

27  IF 

BEQ 

QUIT 

189E 

OFOIED 

Q3  : 

BRCLR 

7,1, CIRCLE 

18A1 

IDOl 

BCLR 

6.1 

18A3 

1301 

BCLR 

1  .  1 

18A5 

OEOIFD 

CIR2  : 

BRSET 

7 , 1 . CIR2 

1  8A8 

ICOl 

BSET 

6,1 

18AA 

1201 

BSET 

1.1 

18AC 

3F30 

CLR 

TYMl 

18AE 

3F31 

CLR 

TYM2 

1  8B0 

3C32 

INC 

TYMTST 

18B2 

A63C 

LDA 

#60 

;60  DECIMAL  TRANSITIONS  QUALIFY 

1  8B4 

B132 

CMP 

TYMTST 

;AS  A  RESPONSE 

1  8B6 

2602 

BNE 

WIT7 

1  8B8 

3C33 

INC 

TRYTST 

1  8BA 

CCl 88E 

WIT7  ; 

JMP 

CIRCLE 

;WAIT  FOR  NEXT  RS-232  TRANSITIOI 

1  8BD 

3C34 

QUIT: 

INC 

TWYTST 

1  8BF 

B634 

LDA 

TWYTST 

1  8C1 

A104 

CMP 

#04H 

;CHANGED  FROM  TWO  TO  FOUR 

18C3 

2709 

BEQ 

QUITS 

1  8C5 

A600 

LDA 

#00H 

;60  DECIMAL  TRANSITIONS  QUALIFY 

18C7 

B133 

CMP 

TRYTST 

;AS  A  RESPONSE 

18C9 

26F2 

BNE 

QUIT 

1  8CB 

CC1885 

JMP 

SON 

1  8CE 

A603 

QUITS  : 

LDA 

#03H 

;SEND  ETX  BEFORE  SHUTTING  DOWN 

1  8D0 

CD196F 

JSR 

MSEND 

;JUNE  10  ADDITION 

18D3 

1401 

QUIT6  : 

BSET 

2.  1 

18D5 

2EFC 

BIL 

QU  IT6 

; JUNE  19  ADDITION 

1  8D7 

IDOl 

BCLR 

6.1 

:ALLOW  20  mA  SAIL  AFTER  TIMEOUT 

1  8D9 

8E 

SLEEP 

;VMCM  SUBROUTINES  ARE 

CONTAINED  HERE 

1  8DA 

A600 

BDSET;  LDA 

//OOH 

:SET  BAUD  RATE  FOR  300 

1  8DC 

B710 

STA 

TIMA 

;AT  2.4576  MHZ 

1  8DE 

A6CC 

LDA 

//OCCH 

18E0 

B7  1  1 

STA 

TIMB 

1  8E2 

81 

RTS 

26 


1  8E3 

CONFIG: 

;SET  UP 

PORTS 

LISTING  PORT 

PIN  FUNCTIONS 

PORT  A  LINES 

ARE  SAIL 

ADDRESSES  HIGH  TO  LOW  IN  ORDER 

PBO  -  FSK  SAIL 

MODEM  SDI  (TIED  TO  IRQ)  (IN) 

PBl  -  FSK  SAIL 

MODEM  SDO  (OUT) 

PB2  -  XMIT  BAR 

TO  MODEM  (OUT) 

PB3  -  FSK  CARRIER  DETECT  (IN) 

PBA  -  NO  CONNECTION  - 

PAD  PROVIDED  (IN) 

PBS  -  SAIL  ADDRESS  SWITCH  POWER  (OUT) 

PB6  -  TO  CURRENT  LOOP 

SAIL  CONTROL  AND  SDI  (OUT)  (VMCM 

PB7  -  FROM  CURRENT  LOOP  SAIL  SDO  (IN)  (VMCM) 

1  8E3 

A666 

LDA 

//66H 

1  8E5 

B705 

STA 

5 

1  8E7 

A60  6 

LDA 

#06  H 

;SET  OUTPUT  LINES  HIGH  TO  START 

1  8E9 

B701 

STA 

1 

;EXCEPT  OPTO  NPN  SWITCH 

1  8EB 

A600 

LDA 

#00H 

1  8ED 

B704 

STA 

4 

;PORT  A  ALL  IN 

1  8EF 

81 

RTS 

1  8F0 

lAOl  READ :  BSET 

5,  1 

; READ  SAIL  ADDRESS  SWITCHES 

1  8F2 

9D 

NOP 

1  8F3 

9D 

NOP 

1  8F4 

B600 

LDA 

ADATA 

1  8F6 

B7  2B 

STA 

SAILLO 

1  8F8 

IBO  1 

BCLR 

5  ,  1 

1  8FA 

44 

LSRA 

1  8FB 

44 

LSRA 

1  8FC 

44 

LSRA 

1  8FD 

44 

LSRA 

1  8FE 

AB30 

ADD 

#3  OH 

;MAKE  ASCII  EQUIVALENT 

1900 

B7  2A 

STA 

SAILHI 

1902 

A60F 

LDA 

#0FH 

;MASK  LOW  SAIL  ADDRESS 

1904 

B42B 

AND 

SAILLO 

1  906 

AB30 

ADD 

#3  OH 

;MAKE  ASCII  EQUIVALENT 

1908 

37  2B 

STA 

SAILLO 

190A 

81 

RTS 

190B 

A623  VMCMON:  LDA 

#  *  #  ’ 

;THIS  WAKES  THE  VMCM  UP 

190D 

CD  1 F29 

JSR 

SEND 

19  10 

81 

RTS 

19  11 

A623  SAILON:  LDA 

#  »  #  * 

;RE-TRANSMIT  ACCESS  CODE  TO  VMC 

19  13 

CD  1 F29 

JSR 

SEND 

19  16 

B62A 

LDA 

SAILHI 

19  18 

CD1F29 

JSR 

SEND 

191B 

B62B 

LDA 

SAILLO 

19  ID 

CD 1F29 

JSR 

SEND 

1920 

B62E 

LDA 

DLMTR 

1922 

CD  1 F29 

JSR 

SEND 

1925 

81 

RTS 

1926 

3F30  MGET:  CLR 

TYMl 

;FSK  MODEM  UART  RECEIVE  ROUTINE 

1928 

3F3  1 

CLR 

TYM2 

; RAISE  XMIT  BAR 

27 


192A 

3C30 

MGETl : 

INC 

TYMl  ;WAIT 

FOR  START  BIT  AND  TIMEOUT 

1  92C 

B630 

LDA 

TYMl 

192E 

AIFF 

CMP 

#OFFH 

1930 

2608 

BNE 

MGETX 

1932 

3C3  1 

INC 

TYM2 

1934 

B63  1 

LDA 

TYM2 

1936 

AIFF 

CMP 

//OFFH 

1938 

27  2E 

BEQ 

QUIT2 

;IF  TIMEOUT  GOTO  SLEEP 

193A 

OOOIED 

MGETX ; 

BRSET 

0,1, MGETl 

:WAITING  FOR  START  BIT 

193D 

BEIO 

LDX 

TIMA 

;WAIT  1/2  BIT  CELL 

193F 

B61  1 

LDA 

TIME 

1941 

57 

ASRX 

1942 

4  6 

RORA 

:DIVIDE  BY  2 

1943 

A005 

SUB 

//5 

:TIMING  COMPENSATION 

1945 

2501 

BCS 

MGETOl 

1947 

5C 

INCX 

1948 

4C 

MGETOl  : 

INCA 

1949 

4A 

MGET02 : 

DECA 

194A 

9D 

NOP 

1  94B 

26FC 

BNE 

MGET02 

194D 

5A 

DECX 

1  94E 

26F9 

BNE 

MGET02 

1950 

AE80 

LDX 

#80H 

:BIT  IN  D7  IS  FLAG 

1952 

CD  1 F55 

MGET3 : 

J  SR 

TIMI N3 

;  1  BIT  CELL  WAIT 

1955 

54 

LSRX 

;MOVE  OVER  FOR  NEXT  3 1  "T 

1956 

250B 

BCS 

MGET4 

1958 

9D 

NOP 

1959 

9F 

TXA 

1  95A 

010102 

BRCLR 

0.1. MGET2 

;ADD  NOTHING  IF  CLEAR 

195D 

AB80 

ADD 

;PUT  IN  BIT  IF  NOT 

195F 

97 

MGET2  : 

TAX 

1960 

9D 

NOP 

1961 

20EF 

BRA 

MGET3 

:QUIT  WHEN  ALL  7  DONE 

1963 

CD1F4D 

MGET4  : 

J  SR 

TIMINl 

;WAIT  ONE  MORE  CELL 

1966 

9F 

TXA 

1967 

81 

MGET6  : 

RTS 

1968 

1401 

QUIT2  ; 

BSET 

2  .  1 

1  96A 

2EFC 

BIL 

QUIT2 

;IF  TIMOUT  OCCURS.  THEN 

1  96C 

1  DO  1 

BCLR 

6,  1 

1  96E 

8E 

SLEEP 

;GOTO  SLEEP 

1  96F 

MSEND  : 

;  FSK 

MODEM  UART  TRANSMIT  ROUTINE 

1  96F 

B7  1  5 

STA 

TEMP2 

:SAVE  CHARACTER 

197  1 

1501 

BCLR 

2  ,  1 

:LOWER  XMIT  BAR 

1973 

CD  1 F4D 

JSR 

TIMINl 

:5  BIT  DELAY 

1976 

CD  1 F4D 

JSR 

TIMINl 

28 


1979  CDIFAD 
197C  CD1F4D 
197F  CD1F4D 
1982  B615 

1984  1301 
1986  AA80 

1988  97 

1989  CD1F55 

198C  54 
198D  270A 

198F  2404 
1991  1201 
1993  20F4 

1995  1301 

1997  20F0 

1999  1301 

199B  CD1F51 
199E  1201 
19A0  CD1F4D 
19A3  B615 
19A5  1401 

19A7  81 


19A8  OEOIFD 
19AB  BEIO 
19  AD  B611 
19AF  57 
19B0  46 
19B1  A005 
19B3  2501 

19B5  5C 
19B6  4C 
19B7  4A 
19B8  9D 
19B9  26FC 
19BB  5A 
19BC  26F9 
19BE  AE80 
19C0  CD1F55 
19C3  54 
19C4  250B 

19C6  9D 
19C7  9F 
19C8  0F0102 
19CB  AB80 
19CD  97 
19CE  9D 
19CF  20EF 
19D1  CD1F4D 
19D4  9F 
19D5  81 


JSR 

TIMINl 

JSR 

TIMINl 

JSR 

TIMINl 

LDA 

TEMP2 

BCLR 

1  .  1 

ORA 

TAX 

#80H 

MSEND  1  : 

JSR 

LSRX 

TIMIN3 

BEQ 

MSEND3 

BCG 

MSEND2 

BSET 

1  .  1 

BRA 

MSENDl 

MSEND2  : 

BCLR 

1  .  1 

BRA 

MSEND 1 

MSEND3  : 

BCLR 

1  .  1 

JSR 

TIMIN2 

BSET 

1  .  1 

JSR 

TIMINl 

LDA 

TEMP2 

BSET 

RTS 

2.1 

;  SET  START  BIT 
;LAST  BIT  FLAG 

;VJAIT  FOR  TIMEOUT 
;GET  NEXT  BIT 
;DONE  IF  ACCUMULATOR 
;IS  ZERO 

; SET  TRANSMITTED  BIT 


; CLEAR  TRANSMITTED  BIT 


;FOR  STOP  BIT 

:WAIT  FOR  STOP  BIT  END 
; RECOVER  CHARACTER 
•.RAISE  XMIT  BAR 


VGET  : 


VGX  1  : 
VGX2  : 


VG3  ; 


VG2  : 


VG4  : 
VG6  : 


BRSET 

LDX 

LDA 

ASRX 

RORA 

SUB 

BCS 

INCX 

INCA 

DECA 

NOP 

BNE 

DECX 

BNE 

LDX 

JSR 

LSRX 

BCS 

NOP 

TXA 

BRCLR 

ADD 

TAX 

NOP 

BRA 

JSR 

TXA 

RTS 


7,1, VGET  ;MODIFIED  GET  ROUTINE 

TIMA 

TIME 

#5 

VGXl 


VGX2 

VGX2 

//80H 

TIMIN3 

VG4 


7.1. VG2 
//80H 


VG3 

TIMINl 

;MODIFIED  FOR  LOWER  CASE  CHARS 


29 


19D6 

OEOIFD 

EGET: 

BRSET 

7,1, EGET 

19D9 

BEIO 

LDX 

TIMA 

19DB 

B61  1 

LDA 

TIMB 

19DD 

57 

ASRX 

19DE 

4  6 

RORA 

1  9DF 

46 

RORA 

19E0 

4  6 

RORA 

1  9E1 

A005 

SUB 

#5 

19E3 

2501 

BCS 

EGX  1 

19E5 

5C 

INCX 

19E6 

4C 

EGXl  : 

INCA 

19E7 

4A 

EGX2  : 

DECA 

19E8 

9D 

NOP 

1  9E9 

26FC 

BNE 

EGX2 

19EB 

5A 

DECX 

19EC 

26F9 

BNE 

EGX2 

19EE 

IDO  1 

BCLR 

6.1  ; 

1  9F0 

AE80 

LDX 

//80H 

19F2 

CD  1F55 

EG3  : 

J  SR 

TI MI N3 

1  9F5 

54 

LSRX 

19F6 

25  12 

BCS 

EG4 

19F8 

9D 

NOP 

1  9F9 

9F 

TXA 

1  9FA 

OFO  107 

BRCLR 

7,1, EG2  ; 

19FD 

AB80 

ADD 

#80H 

1  9FF 

IDOl 

BCLR 

6  ,  1 

lAOl 

CCl A06 

JMP 

EG9 

1  A04 

ICOl 

EG2  : 

BSET 

6.1 

1A06 

97 

EG9  : 

TAX 

1  A07 

9D 

NOP 

1  AOS 

20E8 

BRA 

EG3 

1  AO  A 

ICOl 

EG4  : 

BSET 

6.  1 

1  AOC 

CD 1F4D 

J  SR 

TIMINI 

1  AOF 

IDOl 

BCLR 

6.1  ; 

1  A1  1 

9F 

TXA 

1A12 

81 

EG6  : 

RTS 

IDOO 

ORG 

IDOOH  ; 

;MODIFIED  GET  ROUTINE  ECHOES 
;CHARACTERS  IMMEDIATELY 


ADDED  STATEMENT 


ADDED  STATEMENTS 


ATTEMPT  TO  ADD  STOP  BIT 
MODIFIED  FOR  LOWER  CASE  CHARS 


START  OF  MONITOR  ROM 


MONITOR  OPERATIONS 

THIS  MONITOR  DETERMINES  BAUD  RATE  BY  TIMING  A 
CARRIAGE  RETURN  ON  A  RESET.  THE  OPERATORS  ARE: 

D  -  DISPLAY  16  MEMORY  LOCATIONS  FROM  STARTING 
ADDRESS  FROM  XXXX 

S  -  SUBSTITUTE  MEMORY  LOCATION  (A  liCR!^  DOES 
NOT  ALTER  MEMORY) 

G  -  GO,  EXECUTE  A  PROGRAM  RESIDING  AT  XXXX 

TO  EXIT  AN  OPERATOR.  ENTER  A  DECIMAL  POINT  OR  RESE 


;SET  UP  PORTS  -  ALWAYS  COPY  SUBROUTINE  'CONFIG'  SETUP 


IDOO  A666  START:  LDA  //66H  ;  SET  DATA  DIRECTION  OF  PORT  B 


30 


1D02 

B705 

STA 

5 

TO  01100110  1  :::  OUTPUT 

1D04 

A6  4 6 

LDA 

//  4  6  H 

SET  OUTPUT  LINES  HIGH  TO  STAR 

1D06 

B70  1 

STA 

1 

AND  XMIT  BAR  ALSO 

1D08 

A600 

LDA 

//OOH 

SET  DDR  OF  PORT  A  TO  ALL  IN 

IDOA 

B704 

STA 

4 

JSR 

BDSET 

FOR  300  BAUD  -  COMMENTED  OUT 

IDOC 

CD  1 F86 

J  SR 

RATSET 

AUTO  BAUD  SETTING  ROUTINE 

IDOF 

AEID 

LDX 

//HIGH  SIGNON 

ID  1  1 

A619 

LDA 

//LOW  SIGNON 

IDl  3 

CD  1 EOA 

JSR 

SNDSTG 

1  D  1  6 

CC1D32 

JMP 

MONITR 

ID  19 

2A564D43 

SIGNON : 

DB 

'*VMCM  SAIL  PREPROCESSOR*$ ' 

1  D3  2 

9C 

MONITR: 

RSP 

RESET  STACK 

1D33 

CD  1DF5 

J  SR 

CRLF 

EACH  NEW  COMMAND  STARTS  WITH 

1D36 

A62  1 

LDA 

/r  1  ' 

( RET) ,  ' ! ' 

1D38 

CD 1F29 

J  SR 

SEND 

1D3B 

CD  1 EFB 

SIGNIO  : 

JSR 

GET 

GO  THROUGH  LIST 

1D3E 

A1  44 

DOTD  : 

CMP 

/M  D  * 

1  DAO 

2603 

BNE 

DOTG 

1D42 

CC1D53 

JMP 

DI  SP 

1D45 

A1  47 

DOTG  : 

CMP 

#  *G* 

1D47 

2603 

BNE 

DOTS 

1D49 

CC1DA3 

JMP 

GOTO 

1  D4C 

A153 

DOTS: 

CMP 

/r  s  * 

1D4E 

26EB 

BNE 

SIGNIO 

1D50 

CCIDAF 

JMP 

SUBST 

1D53 

CD  IDEO 

D  I  SP  : 

J  SR 

PREP 

;ECHO  COMMAND.  GET  ADDRESS 

1D56 

CD  1  E6A 

D  I  SPO  : 

JSR 

SNDAD 

;SHOW  ADDRESS  FIRST 

1D59 

CD  1  DEA 

JSR 

SND2  SP 

1D5C 

A6  1  0 

LDA 

//  16 

;SET  UP  LOOP  COUNTER 

1  D5E 

37  17 

STA 

TEMP4 

;USE  TEMP4 

1D60 

CD  1 E58 

JSR 

SAVAD 

1D63 

CD  1 E4D 

DI  SPl  : 

JSR 

GETM 

1  D66 

CD1E75 

J  SR 

SNDBY 

1D69 

CDIDEF 

JSR 

SNDSP 

1D6C 

CD  1E35 

JSR 

INCAD 

1D6F 

3A17 

DEC 

TEMP4 

;LOOP  TILL  BYTES  SHOWN 

1D7  1 

26F0 

BNE 

DI  SP  1 

1D73 

CD  IDEA 

JSR 

SND2SP 

;ADD  2  SPACES 

1D76 

CD1E61 

J  SR 

RECAD 

;RECOVER  ADDRESS  FROM  PR0G4 

1D79 

A6  10 

LDA 

in  6 

1D7B 

B7  1  7 

STA 

TEMP4 

.\ESET  COUNTER 

1D7D 

CD1E4D 

D I SP3  : 

JSR 

GETM 

GET  BYTE  AGAIN 

1  D80 

A120 

CMP 

//  2  0  H 

SHOW  THEM  AS  ASCII  CHARACTERS 

1D82 

2402 

BCC 

DISP2 

UNLESS  CONTROL 

1  D84 

A62E 

LDA 

in  n  ; 

-SHOW  THOSE  AS  ' . ’ 

ID86 

A17F 

D I SP2  : 

CMP 

#7FH 

1D88 

2  502 

BCS 

D  I  SP4 

3  1 


* 


1D8A 

A62E 

LDA 

#  '  .  ' 

1D8C 

CD1F29 

D I SP4  : 

J  SR 

SEND 

1  D8F 

CD  1E35 

J  SR 

INCAD 

1D92 

3A17 

DEC 

TEMPA 

;DO  TILL 

D  0  N  E 

1D94 

2  6  E  7 

BNE 

DI  SP3 

1D96 

CD1DF5 

J  SR 

CRLF 

1  D99 

CO  1 SFB 

J  SR 

GET 

;  ESCAPE 

ON  INCOMING 

I  D9C 

A  1  2E 

CMP 

1D9E 

26B6 

BNE 

DISPO 

12A0 

CC1D32 

JMP 

MONI TR 

1DA3 

CD  ID  EG 

GOTO  : 

JSR 

PREP 

ECHO  COMMAND,  GET  ADDRESS 

ID  Ad 

CO  1 £6  A 

J  SR 

SNDAD 

SHOW  ADDRESS  FIRST 

1  DAQ 

CD  ID  ? 

JSR 

CRLF 

GO  AFTER  CR 

ID  AC 

CD  1 EA5 

JSR 

GOMEM 

1  DA? 

CD  1  DEO 

S  U  B  S  T  : 

JSR 

PREP 

ECHO  COMMAND,  GET  ADDRESS 

1  DB2 

CD  1  E6A 

S  U  B  S  T  1  : 

JSR 

SNDAD 

SHOW  ADDRESS  FIRST 

ID35 

CD  IDEA 

JSR 

SND2SP 

THEN  2  SPACES 

1  DBS 

CD  1 EAD 

JSR 

GETM 

GET  BYTE 

IDBB 

CD  I  E58 

JSR 

SAVAD 

SAVE  PROGl  ADDR  IN  PRCGA  ADD? 

:  DBE 

57  1  B 

STA 

PROGl +2 

FOR  DEFAULT  START  OF  GETADl 

IDCO 

CD  1 E7  5 

JSR 

SNDBY 

SHOW  IT 

1DC3 

CD  IDEA 

J  SR 

SND2SP 

ADD  2  SPACES 

1DC6 

CD  IE96 

JSR 

GETADl 

GET  NEW  VALUE 

1DC9 

B6  13 

LDA 

PROGl +2 

GET  DATA 

1  DCB 

CD  1E6  1 

JSR 

RECAD 

BRING  BACK  ADDRESS 

IDCE 

CD : EA9 

JSR 

PUTM 

INSTALL  NEW  BYTE 

IDDl 

C...  1DF5 

JSR 

CRLF 

IDDA 

CD 1E35 

J  SR 

INCAD 

1  DD7 

20D9 

BRA 

SU3ST1 

sc  GENERAL  SUBROUTINES************** 

1DD9 

CD 1F29 

ECHO  : 

J  SR 

SEND 

;ECHO  INCOMING  CHARACTER 

IDDC 

CD  IDF5 

JSR 

CRLF 

IDDF 

81 

RTS 

1  DEO 

CD  IDD9 

PREP  : 

JSR 

ECHO 

1  DE3 

CD  1 E92 

JSR 

GETAD 

;GET  ADDRESS  TO  PROGl+1 

1  DE6 

CD  1DF5 

J  SR 

CRLF 

PROG+2 

IDE9 

81 

RTS 

IDEA 

A620 

SND2SP: 

LDA 

//  *  ' 

IDEC 

CD  1 F29 

JSR 

SEND 

IDEF 

A620 

SND  SP  : 

LDA 

//  *  » 

IDFl 

CD1F29 

JSR 

SEND 

IDF  A 

81 

RTS 

1DF5 

A60D 

CRLF  : 

LDA 

#  0  D  H 

1  DF7 

CD  1 F29 

J  SR 

SEND 

IDFA 

A60A 

LDA 

//OAH 

IDFC 

CD1F29 

JSR 

SEND 

IDFF 

AE6  4 

LDX 

inoo 

lEOl 

A6A7 

CRLFl  : 

LDA 

//167 

;ABOUT  A  10  MS  DELAY 

1E03 

4A 

CRLF2  : 

DECA 

: INNER 

LOOP  IS  1.001  MS 

1E04 

26FD 

BNE 

CRLF2 

1E06 

5A 

DECX 

1E07 

26F8 

BNE 

CRLFl 

1E09 

81 

RTS 

; SNDSTG 

SENDS 

STRING  LOCATED  AT  XA  TILL  $  IS  FOUND 

lEOA 

B7  IF 

SNDSTG: 

STA 

PROG2+2 

lEOC 

BFIE 

STX 

PR0G2+1 

lEOE 

A6C6 

SNDSTO  : 

LDA 

//0C6H 

;PUT  LOAD  INSTRUCTION  IN  PROG2 

lElO 

B7  ID 

STA 

PR0G2 

lEl  2 

A681 

LDA 

//81H 

;PUT  RETURN  INSTRUCTION  IN  TOC 

1E14 

B7  20 

STA 

PROG2+3 

1E16 

BDID 

SNDSTl  : 

J  SR 

PR0G2 

;GET  BYTE 

lEl  8 

3C1F 

INC 

PROG2+2 

; INCREMENT  POINTER 

lElA 

2602 

BNE 

SNDST4 

;GET  NEXT  IF  NO  CARRY 

lElC 

3C1E 

INC 

PR0G2+1 

;INC  REST  OF  POINTER  IF  CARRY 

lElE 

A1  24 

SNDST4: 

CMP 

//  *  $  * 

1E20 

2601 

BNE 

SNDST2 

1E22 

81 

RTS 

1E23 

AlOA 

SNDST2  : 

CMP 

/^OAH 

; SKIP  LINE  FEED 

1E25 

27EF 

BEQ 

SNDSTl 

1E27 

AlOD 

CMP 

#ODH 

;DO  CR  WITH  SUBROUTINE  CRLF 

1E29 

2605 

BNE 

SNDST3 

1E2B 

CD1DF5 

JSR 

CRLF 

1E2E 

20E6 

BRA 

SNDSTl 

1  E30 

CD1F29 

SNDST3  : 

JSR 

SEND 

1E33 

20E1 

BRA 

SNDSTl 

1E35 

1  E35 

3C1B 

INCAD  : 

INC 

PROGl +2 

;INCREMENT  ADDRESS  POINTER 

1E37 

2602 

BNE 

INCADl 

1E39 

3C1  A 

INC 

PROGl +1 

1  E3B 

81 

INCADl  : 

RTS 

1E3C 

3D  IB 

DECAD: 

TST 

PROGl +2 

1E3E 

2602 

BNE 

DECADl 

1E40 

3A1A 

DEC 

PROGl +1 

1  E42 

3A1B 

DECAD  1  : 

DEC 

PROGl +2 

;DECREMENT  ADDRESS  POINTER 

1  E44 

81 

RTS 

1E45 

AECC 

GOMEM: 

LDX 

#OCCH 

^EXTENDED  JMP 

1E47 

2006 

BRA 

MEM 

1  E49 

AEC7 

PUTM: 

LDX 

//0C7H 

;PREP  FOR  MOV  M,A  INSTRUCTION 

1E4B 

2002 

BRA 

MEM 

1  E4D 

AEC6 

GETM: 

LDX 

//0C6H 

;PUT  LOAD  INSTRUCTION  IN  PROGl 

1E4F 

BF19 

MEM: 

STX 

PROGl 
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1E51 

AE81 

LDX 

#81  H 

1E53 

BFIC 

STX 

PROGl +3 

1E55 

BD19 

JSR 

PROGl 

1E57 

81 

RTS 

1E58 

BEIA 

SAVAD  ; 

LDX 

PROGl+1 

1E5A 

BF23 

STX 

PR0G4 

1E5C 

BEIB 

LDX 

PROGl+2 

1E5E 

BF24 

STX 

PR0G4+1 

1E60 

81 

RTS 

1E61 

BE23 

RECAD : 

LDX 

PR0G4 

1E63 

BFl  A 

STX 

PROGl+1 

1E65 

BE24 

LDX 

PROG4+1 

1E67 

BFIB 

STX 

PROGl+2 

1  E69 

81 

RTS 

;  SNDAD 

SENDS 

ADDRESS 

IN 

;  SNDBY 

SENDS 

BYTE  IN 

A 

;  SMDNIB 

SENDS 

NIBBLE 

IN 

1E6A 

361A 

SNDAD  : 

LDA 

PROGl+1 

1E6C 

CD1E75 

JSR 

SNDBY 

1E6F 

B61B 

LDA 

PROGl+2 

1E7  1 

CD1E75 

J  SR 

SNDBY 

1E74 

81 

RTS 

1E75 

B716 

SNDBY  : 

STA 

TEMP3 

1  E77 

44 

LSRA 

1E78 

44 

LSRA 

1  E79 

44 

LSRA 

1E7  A 

44 

LSRA 

1E7B 

CD1E84 

J  SR 

SNDNIB 

1E7E 

B616 

LDA 

TEMP3 

1E80 

CD1E84 

JSR 

SNDNIB 

1E83 

81 

RTS 

1E84 

A40F 

SNDNIB : 

AND 

//OFH 

1E86 

AB30 

ADD 

/MO* 

1E88 

A13A 

CMP 

/M  9  *  + 1 

1E8A 

2502 

BCS 

SNDNI  1 

1E8C 

AB07 

ADD 

//  *  A  *  -  *  9 

1E8E 

CD1F29 

SNDNI 1  : 

JSR 

SEND 

1E91 

81 

RTS 

;PUT  RETURN  INSTRUCTION  IN  TOO 
;AND  PROGl+2 


PROGl+1  AND  PROGl+2 
A 


;KEEP  COPY  IN  TEMP3 


;GET  0-9  FIRST 


; NOW  LETTERS 
-1 


THIS  SUBROUTINE  GETS  AN  ADDRESS  FROM  THE  TERMINAL 
ADDRESS  IS  IN  PROGl+1  AND  PROGl+2  AT  COMPLETION 
NUMBER  ROLLS  OVER  SO  ONLY  LAST  4  DIGITS  ARE  ACCEPTED 
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1E92 

3F1A 

:END  OF 
; ABORT 

GETAD : 

STRING  SIGNALED  WITH  CR 

TO  MONITOR  START  IF  ' . '  FOUND 

CLR  PROGl+1  ;2-  BYTE  ACCUMULATOR 

1E9A 

3F1B 

CLR 

PROGl+2  ;GETS  DEFAULT  ADDRESS  OF  0 

1E96 

CDIEAC 

GETADl  : 

JSR 

GETNIB  ;GET  NIBBLE 

1  E99 

5D 

TSTX 

;LOOK  FOR  FLAG 

1E9A 

2601 

BNE 

GETAD2 

1E9C 

81 

RTS 

;qUIT  WHEN  ZERO  FLAG  FOUND 

1E9D 

AEOA 

GETAD2 : 

LDX 

#4 

1E9F 

381B 

GETAD3  : 

LSL 

PROGl+2  ;MAKE  ROOM  FOR  NEW  NIBBLE 

lEAl 

391  A 

ROL 

PROGl +1 

1EA3 

5A 

DECX 

;BY  MOVING  OVER  4  BITS 

1EA4 

26F9 

BNE 

GETAD3 

1  EA6 

BBIB 

ADD 

PROGl+2  ;ADD  IN  NEWCOMER 

1  EA8 

B7  IB 

STA 

PROGl+2 

lEAA 

20EA 

BRA 

GETAD 1 

lEAC 

CD lEFB 

GETNIB  : 

JSR 

GET 

;GET  INCOMING  CHARACTER 

1  EAF 

97 

TAX 

;HIDE  IT  IN  X 

1  EBO 

AlOD 

CMP 

y/ODH 

;LOOK  FOR  CARRIAGE  RETURN 

1EB2 

27  2A 

BEQ 

GETNl 

1  EB4 

A12E 

CMP 

/P  -  * 

1EB6 

260B 

BNE 

GETN2 

1EB8 

C6020B 

LDA 

020BH 

lEBB 

A47F 

AND 

y/7FH 

; CLEAR  CLOCK  SET  BIT 

lEBD 

C7020B 

STA 

020BH 

;IN  CASE  OF  EXIT  FROM  CKSET 

lECO 

CC1D3  2 

JMP 

MONITR 

1EC3 

A030 

GETN2  : 

SUB 

//’O' 

;LOOK  FOR  NUMBERS  FIRST 

1EC5 

25E5 

BCS 

GETNIB 

1EC7 

AlOA 

CMP 

fMO 

;DONE  IF  0-9 

1EC9 

2508 

BCS 

GETN3 

lECB 

A007 

SUB 

//  ’  A  '  -  »  9 

-1  ; NOW  LOOK  FOR  LETTER 

lECD 

25DD 

BCS 

GETNIB 

;TRY  AGAIN  IF  NOT  A-F 

lECF 

Alio 

CMP 

//I  6 

lEDl 

24D9 

BCC 

GETNIB 

1ED3 

B7  16 

GETN3  : 

STA 

TEMPS 

1ED5 

9F 

TXA 

;MOVE  NUMBER  BACK 

1ED6 

CD  1F29 

JSR 

SEND 

1ED9 

B616 

LDA 

TEMP3 

lEDB 

AEFF 

LDX 

//OFFH 

;CLEAR  RETURN  FLAG 

lEDD 

81 

RTS 

lEDE 

5F 

GETNl  : 

CLRX 

; RETURN 

FLAG 

lEDF 

81 

RTS 

lEEO 

CDIEEF 

GETHX : 

JSR 

GETHXl 

;GET  BYTE  FROM  TWO 

1EE3 

48 

ASLA 

;INCOMING  CHARACTERS 

1EE4 

48 

ASLA 

1EE5 

48 

ASLA 

1EE6 

48 

ASLA 

1EE7 

B7  1  8 

STA 

TEMPS 

1EE9 

CDIEEF 

JSR 

GETHXl 

1  EEC 

BB18 

ADD 

TEMPS 
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IEEE 


8 1  RTS 


lEEF 

CDIEFB 

GETHXl  : 

JSR 

GET 

;GET  HEX  NUMBER 

FROM  UART 

1EF2 

A030 

SUB 

//  '0  » 

;BYTE  COMING  IN 

IN  ASCII 

1EF4 

AlOA 

CMP 

iflO 

1EF6 

2502 

BCS 

GETHX2 

1EF8 

A007 

SUB 

#  *  A »  -  *  9  ’ 

'  -1 

lEFA 

81 

GETHX2 : 

RTS 

UART  SUBROUTINES  **************** 

ENTER 

OR  EXIT 

WITH  BYTE 

TO  BE  SENT  IN  ACCUMULATOR 

SENDS 

7  BITS 

WITH  NO  PARITY 

.RECEIVES  only 

7  BITS 

WORKS 

WITH  RATES  50  TO 

9600  BAUD 

GET 

BRINGS  CHARACTER  IN  FROM  UART 

SEND 

SENDS  CHARACTER  OUT  UART 

RATSET  SETS 

UART  RATE 

lEFB 

OEOIFD 

GET: 

BRSET 

7 , 1 .GET 

:WAIT  FOR  START  BIT 

lEFE 

BEIO 

LDX 

TIMA 

;WAIT  1/2  BIT  CELL 

1  FOO 

B61  1 

LDA 

TIMB 

1F02 

57 

ASRX 

1F03 

46 

RORA 

;DIVIDE  BY  2 

1F04 

A005 

SUB 

#5 

;TIMING  COMPENSATI 

1F06 

2501 

BCS 

GETOl 

1F08 

5C 

INCX 

1F09 

4C 

GETOl  : 

INGA 

IFOA 

4A 

GET02 : 

DECA 

IFOB 

9D 

NOP 

IFOC 

26FC 

BNE 

GET02 

IFOE 

5A 

DECX 

IFOF 

26F9 

BNE 

GET02 

IFl  1 

AE80 

LDX 

#80H 

;BIT  IN  D7  IS  FLAG 

1F13 

CD  1F55 

GET3  : 

JSR 

TIMIN3 

; 1  BIT  CELL  WAIT 

1F16 

54 

LSRX 

jMOVE  OVER  FOR  NEXT  BIT 

1F17 

250B 

BCS 

GET4 

1F19 

9D 

NOP 

IFIA 

9F 

TXA 

IFIB 

0F0102 

BRCLR 

7.1. GET2 

:ADD  NOTHING  IF  CL 

IFIE 

AB80 

ADD 

#80H 

;PUT  IN  BIT  IF  NOT 

1F20 

97 

GET2  : 

TAX 

1F21 

9D 

NOP 

1F22 

20EF 

BRA 

GET3 

;QUIT  WHEN  ALL  7  DONE 

1F24 

CD 1F4D 

GET4: 

JSR 

TIMINl 

;WAIT  ONE  MORE  CELL 

1F27 

9F 

TXA 

1F28 

81 

GET6  : 

RTS 
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1F29 

B715 

SEND  : 

STA 

1  F2B 

IDOl 

BCLR 

1F2D 

AA80 

ORA 

1F2F 

97 

TAX 

1F30 

CD1F55 

SENDl  : 

JSR 

1F33 

54 

LSRX 

1F34 

270A 

BEQ 

1F36 

2404 

BCG 

1F38 

ICOl 

BSET 

1F3A 

20F4 

BRA 

1F3C 

IDOl 

SEND2  : 

BCLR 

1F3E 

20F0 

BRA 

1F40 

IDOl 

SEND3  : 

BCLR 

1F42 

CD1F51 

JSR 

1F45 

ICOl 

BSET 

1F47 

CD1F4D 

JSR 

1F4A 

B615 

LDA 

1  F4C 

81 

RTS 

1F4D 

A608 

TIMINl  : 

LDA 

1F4F 

2006 

BRA 

1F5  1 

A609 

TIMIN2 : 

LDA 

1  F53 

2002 

BRA 

1F55 

A60A 

TIMIN3 : 

LDA 

1F57 

B7  13 

TIMING: 

STA 

1F59 

B610 

LDA 

1  F5B 

B7  12 

STA 

1F5D 

B61  1 

LDA 

1  F5F 

BO  13 

SUB 

1  F61 

B7  13 

STA 

1  F63 

2502 

BCS 

1  F65 

3C12 

TIMXY  : 

INC 

1F67 

3C13 

TIMXX : 

INC 

1F69 

3Ai3 

TIMX  : 

DEC 

1F6B 

26FC 

BNE 

1F6D 

3A12 

DEC 

1F6F 

26F8 

BNE 

1F7  1 

81 

RTS 

1F72 

B610 

TIMIN5 : 

LDA 

1F74 

B7  1  2 

STA 

1F76 

B61  1 

LDA 

1F78 

AOOD 

SUB 

1F7A 

B7  13 

STA 

1F7C 

2402 

BCC 

1F7E 

3A12 

DEC 

1F80 

3712 

TIMX 1  : 

ASR 

1F82 

3613 

ROR 

1F84 

20DF 

BRA 

TEMP2 

;  SAVE  CHARACTER 

6.1 

;SET  START  BIT 

#80H 

;LAST  BIT  FLAG 

TIMIN3 

;WAIT  FOR  TIMEOUT 

;GET  NEXT  BIT 

SENDS 

; DONE  IF  ACCUMULATOR 

SEND2 

;IS  ZERO 

6.1 

;  SET  TRANSMITTED  BIT 

SENDl 

6.1 

;CLEAR  TRANSMITTED  BIT 

SENDl 

6.1 

TIMIN2 

;FOR  STOP  BIT 

6.1 

TIMINl 

;WAIT  FOR  END  OF  STOP 

TEMP2 

; RECOVER  CHARACTER 

#8 

;BASIC  TIMING  ROUTINE 

TIMING 

//9 


TIMING 

//lO 

TTIMB 

TIMA 

TTIMA 

TIMB 

TTIMB 

TTIMB 

TIMXX 

TTIMA 

TTIMB 

TTIMB 

TIMX 

TTIMA 

TIMX 


TIMA 

TTIMA 

TIMB 

#13 

TTIMB 

TIMXl 

TTIMA 

TTIMA 

TTIMB 

TIMXY 


;UART  RATE  SETTING  ROUTINE:  GOOD  FOR  50  -  9600  BAUD 
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1F86 

3F10 

RATSET : 

CLR 

TIMA 

i 

ZERO  COUNTERS 

1  F88 

3F1  1 

CLR 

TIMB 

1F8A 

OEOIFD 

RAT  SI  : 

BRSET 

7.1.  RATSl 

;WAIT  FOR  INCOMING 

1F8D 

; START  BIT 

1F8D 

3C1  1 

RATS2  ; 

INC 

TIMB 

1F8F 

2602 

BNE 

RATS4 

1F91 

3C10 

INC 

TIMA 

1F93 

5C 

RATSA : 

INCX 

; IGNORED: CORRECTS  TIMING 

1F94 

0F01F6 

BRCLR 

7.1. RATS2 

;WAIT  FOR  STOP  BIT  END 

1F97 

1F97 

3811 

RATS5  : 

LSL 

TIMB 

1F99 

3910 

ROL 

TIMA 

t 

IF  SLOW  RATE  NEED  NOT  CORRECT 

1F9B 

2611 

BNE 

RATS7 

1F9D 

B61  1 

LDA 

TIMB 

; 
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